home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DS-CD ROM 2 1993 August
/
DS CD-ROM 2.Ausgabe (August 1993).iso
/
geschaef
/
ds0093
/
topfakt
/
artlist1.for
< prev
next >
Wrap
Text File
|
1993-06-30
|
2KB
|
51 lines
^12
^BArtikelliste ^b^12
/
!#VORHERIGE_GRUPPE:= "' '"
Seite: #SEITE:8:0
Stand: #DATUM
───────────────────────────────────────────────────────────────────────────
ArtikelNr. Bezeichnung Einheit Netto VK Brutto VK
//34567890 123456789012345678901234567890 12345 12345678901 12345678901
───────────────────────────────────────────────────────────────────────────
!LISTE:57
!WENN #Gruppe <> ' ' .AND. #Vorherige_Gruppe <> #Gruppe
#Gruppentitel #Gruppe // Ausgabe der Gruppe bei entsprechender Sortierung
!ENDEWENN
#ART_NR #ART_NAME:30 #Einh #NETTOVK:11 #BRUTTOVK:11
#Art_text:30
/
!#Anz:= #Anz+ 1 // Zähle die Anzahl der gedruckten Artikel...
!#vorherige_Gruppe:= #Gruppe
/
!ENDELISTE
/
!#vorherige_Gruppe:= #Gruppe
!WENN #LetzteSeite
───────────────────────────────────────────────────────────────────────────
Anzahl der aufgelisteten Artikel: #ANZ:8:0
!ENDE WENN
!SEITENAUSWURF
!FORMULARENDE
!PLATZHALTER
#ART_NR , art->Art_nr
#ART_NAME , art->Art_name // Kurzbezeichnung
#ART_TEXT , art->art_text // Ausführlicher Text
#ART_BEMERKUNG , Trim( art->BEMERKUNG)
#Einh, art->MengenEinh
#BRUTTOVK , art->BruttoVerk
#NettoVK, art->NettoVerk
#EKPREIS, art->einkaufpr
#BESTAND, art->bestand
#Anz, nAnz // nur zum Zählen der Artikel
#GRUPPE, IF( 'Gruppe'$ cArtSort, art->Art_Gruppe, '' )
#GRUPPENTITEL, IF( 'Gruppe'$ cArtSort, 'GRUPPE: ', '')
#VORHERIGE_GRUPPE, vorhergruppe
!ENDE PLATZHALTER